home *** CD-ROM | disk | FTP | other *** search
/ Teach Your Children: Road Construction Ahead / Teach Your Children: Road Construction Ahead.iso / pc / rca / road.dxr / 00039_lastWrenchFrame.ls < prev    next >
Encoding:
Text File  |  1996-07-17  |  392 b   |  17 lines
  1. global g3DObject, gCustomCursor
  2.  
  3. on exitFrame
  4.   update(gCustomCursor)
  5.   if the delayCounter of g3DObject < the wrenchDelay of g3DObject then
  6.     set the delayCounter of g3DObject to the delayCounter of g3DObject + 1
  7.     go(the frame)
  8.   else
  9.     if soundBusy(1) then
  10.       set the delayCounter of g3DObject to 0
  11.       go(marker(0))
  12.     else
  13.       wrenchDone(g3DObject)
  14.     end if
  15.   end if
  16. end
  17.